(concat): Fix bug in concatinating a list of multibyte and

unibyte characters.

diff --git a/src/fns.c b/src/fns.c
index 404f9976544b78fccb14ec405be527e47557fa09..51eec4d472c4a70d6482cbd8e649718a4389e787 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -731,8 +731,8 @@ concat (nargs, args, target_type, last_special)
                CHECK_NUMBER (elt, 0);
                if (SINGLE_BYTE_CHAR_P (XINT (elt)))
                  {
-                   XSTRING (val)->data[toindex++] = XINT (elt);
-                   toindex_byte++;
+                   XSTRING (val)->data[toindex_byte++] = XINT (elt);
+                   toindex++;
                  }
                else
                  /* If we have any multibyte characters,